unit DBProtocol;

interface

const
  SM_DB_GETDATA = 500;
  SM_DB_SETDATA = 501;

  CM_DB_GETDATA = 600;
  CM_DB_SETDATA = 601;

type
  PDIDB_GetData_Request = ^TDIDB_GetData_Request;
  TDIDB_GetData_Request = packed record
    dAnwerID:     Cardinal;
    dDBName:      array [0..9] of Char;
    dCommandText: array [0..1023] of Char;
  end;

  PDIDB_SetData_Request = ^TDIDB_SetData_Request;
  TDIDB_SetData_Request = packed record
    dAnwerID:     Cardinal;
    dDBName:      array [0..9] of Char;
    dTableName:   array [0..14] of Char;
    dKeyFields:   array [0..24] of Char;
    dDBCompress:  BYTE;
    dDBPacketLen: Cardinal;
  end;

implementation

end.
